home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).adf / Mini_TIC-TAC-TOE_V0.3 / Mini_TIC-TAC-TOE_V0.3 < prev    next >
Text File  |  1989-07-03  |  6KB  |  212 lines
  1.  ' Mini_TIC-TAC-TOE V0.3 ist Shareware
  2.  ' der Sharewarebetrag ist belibig
  3.  MENU 4,0,1," *________ Mini_TIC-TAC-TOE ___ INFO ______________* "
  4.  MENU 4,1,1,"        Mini_TIC-TAC-TOE V0.3 © by Andre Lämmer      "
  5.  MENU 4,2,1,"   Anleitung mit der Help-Taste   "
  6.  MENU 4,3,1,"   Spielerstand mit der Taste  F1   "
  7.  MENU 4,4,1,"   Neu anfangen mit der Taste  F2   "
  8.  MENU 4,5,1,"        Mit ESC können Sie das Programm beenden      "
  9.  ON BREAK GOSUB ENDE
  10.  BREAK ON  
  11.  DEFINT A-z
  12.  DIM Ro!(7,1),Gr!(7,1),Bl!(7,1),px#(140),po#(140),F(3,3),W$(4),SC(8)
  13.  W$(1)="PLAYER 1 WINS THE GAME" : W$(2)="PLAYER 1"
  14.  W$(4)="PLAYER 2 WINS THE GAME" : W$(3)="PLAYER 2"
  15.  WINDOW CLOSE 1
  16.  SCREEN 1,640,260,3,2
  17.  WINDOW 1,"Mini_TIC-TAC-TOE V0.3 von Andre Lämmer",(0,0)-(630,240),0,1
  18.  PALETTE 6,0,0,0
  19.  CIRCLE (260,100),36
  20.  LINE (106,4)-(170,36)
  21.  LINE (170,4)-(106,36)
  22.  GET (224,84)-(296,120),po#
  23.  GET (104,4)-(176,40),px#
  24. Start:
  25.  FLG=1 : Spiele=0 : Spieler1=0
  26.  Spieler2=0 : Unent=0 : Unent1=0
  27. Start1:
  28.  CLS
  29.  LINE (240,16) -STEP (10,150),2,bf
  30.  LINE (360,16) -STEP (10,150),2,bf
  31.  LINE (120,66) -STEP (360,4),2,bf
  32.  LINE (120,116)-STEP (360,4),2,bf
  33.  FOR A=1 TO 3
  34.   FOR B=1 TO 3 
  35.    F(A,B)=0
  36.  NEXT B,A
  37. FRAG:
  38.  IF MOUSE(0)>0 THEN MAUSE
  39.  A$=INKEY$
  40.  IF A$=CHR$(27) THEN ENDE
  41.  IF A$=CHR$(139) THEN GOTO Help
  42.  IF A$=CHR$(129) THEN GOTO Spielerstand
  43.  IF A$=CHR$(130) THEN GOTO Start
  44.  IF A$="" THEN FRAG
  45.  IF FLG=1 THEN FLG=4 ELSE FLG=1
  46.  GOTO Start1
  47. MAUSE:  
  48.  Maus1=MOUSE(5) : Maus=MOUSE(6)
  49.  x=120 : I=1
  50.  IF Maus1>240 THEN x=240 : I=2
  51.  IF Maus1>360 THEN x=360 : I=3
  52.  y=16 : J=1
  53.  IF Maus>66  THEN y=66  : J=2
  54.  IF Maus>116 THEN y=116 : J=3 
  55.  IF F(I,J)<>0 THEN FRAG 
  56.  F(I,J)=FLG
  57.  IF FLG=4 THEN
  58.   FLG=1 : PUT (x+30,y+11),po#            
  59.  ELSE
  60.   FLG=4 : PUT (x+30,y+11),px#
  61.  END IF
  62.  PowerPrint 25,25,"Press any key to clear field",7
  63.  FOR I=1 TO 3
  64.   SC(I)=0 : I3=I+3 : SC(I3)=0
  65.   FOR J=1 TO 3
  66.    SC(I)=SC(I)+F(J,I)
  67.    SC(I3)=SC(I3)+F(I,J)
  68.  NEXT J,I
  69.  SC(7)=F(1,1)+F(2,2)+F(3,3)
  70.  SC(8)=F(1,3)+F(2,2)+F(3,1)
  71.  Unent=Unent+1
  72.  FOR I=1 TO 3
  73.   N=F(1,I)
  74.   IF (SC(I)=3*N) AND (N>0) THEN
  75.    I1=1 : J1=I : I2=3 : J2=I : GOTO WIN
  76.   END IF
  77.   N=F(I,1)
  78.   IF (SC(I+3)=3*N) AND (N>0) THEN
  79.    I1=I : J1=1 : I2=I : J2=3 : GOTO WIN
  80.   END IF
  81.  NEXT
  82.  N=F(2,2)
  83.  IF (SC(7)=3*N) AND (N>0) THEN
  84.   I1=1 : J1=1 : I2=3 : J2=3 : GOTO WIN
  85.  END IF
  86.  IF (SC(8)=3*N) AND (N>0) THEN
  87.   I1=3 : J1=1 : I2=1 : J2=3 : GOTO WIN
  88.  END IF
  89.  IF Unent=9 THEN 
  90.   Unent1=Unent1+1
  91.   Unent=0 : BEEP
  92.   PowerPrint 1,28,"Noboby wins the game !",3
  93.   FOR I=1 TO 2500 : NEXT
  94.   GOTO Start1
  95.  END IF
  96.  GOTO FRAG
  97. WIN: 
  98.  Unent=0 : BEEP
  99.  PowerPrint 1,28,W$(N),3
  100.  H1=((I1-.5)*120)+120
  101.  V1=((J1-.5)*50) +16
  102.  H2=((I2-.5)*120)+120
  103.  V2=((J2-.5)*50) +16
  104.  LINE (H1,V1)-(H2,V2),3
  105.  LINE (H1+1,V1)-(H2+1,V2),3
  106.  LINE (H1-1,V1)-(H2-1,V2),3
  107.  FOR I=1 TO 2500 : NEXT
  108.  IF N=1 THEN Spieler1=Spieler1+1 ELSE Spieler2=Spieler2+1
  109.  Spiele=Spiele+1
  110.  GOTO Start1
  111. Help:
  112.  SCREEN 2,330,260,3,1
  113.  WINDOW 2,"                H E L P                        ",(0,0)-(318,240),0,2
  114.  PowerPrint 1,16,"ANLEITUNG:",3
  115.  PowerPrint 3,6,"Dies ist Mini_TIC-TAC-TOE V0.3 ",4
  116.  PowerPrint 4,19,"von",5
  117.  PowerPrint 5,15,"Andre Lämmer",6
  118.  PowerPrint 6,1,STRING$(40,"_"),7
  119.  PowerPrint 8,1,"Dieses Spiel ist für 2 Spieler ,einer    ",1
  120.  PowerPrint 9,1,"hat Kreuze der andere Kreise.Jeder       ",2
  121.  PowerPrint 10,1,"Spieler muß nun versuchen ,daß er eine  ",3
  122.  PowerPrint 11,1,"Dreierreihe bilden kann.Dies kann ent-  ",4
  123.  PowerPrint 12,1,"weder waagrecht, senkrecht oder diagonal",5
  124.  PowerPrint 13,1,"geschehen." ,6
  125.  PowerPrint 15,1,"Auserdem gibt es noch einige Funktions- ",7
  126.  PowerPrint 16,1,"Tasten:",7
  127.  PowerPrint 18,2,"HELP - Sie erhalten diese Anleitung    ",2
  128.  PowerPrint 19,2,"F1   - Sie erhalten den Spielerstand   ",3
  129.  PowerPrint 20,2,"F2   - Sie können neu anfangen und der ",4
  130.  PowerPrint 21,2,"       Spielerstand wird gelöscht !    ",4
  131.  PowerPrint 22,2,"ESC  - Das Spiel anhalten              ",5
  132.  PowerPrint 24,1,"Mit jeder weiteren Taste können sie das",6
  133.  PowerPrint 25,1,"Spielfeld löschen.",7
  134.  PowerPrint 29,8,"Press Space to continue !",2
  135.  GOSUB Blenden : CLS : COLOR ,2
  136.  LINE (1,10)-(315,200),2,bf
  137.  PowerPrint 5,2,"Dies ist ein Sharewareprogramm, ",3
  138.  PowerPrint 6,2,"und der Geldbetrag ist beliebig.",3
  139.  PowerPrint 7,2,"Bitte schicken Sie den Sharewarebetrag",3 
  140.  PowerPrint 8,2,"an:",3
  141.  LINE (65,65)-(195,100),7,B
  142.  PowerPrint 10,10,"Andre Lämmer   ",4
  143.  PowerPrint 11,10,"Hegaustraße 21 ",5
  144.  PowerPrint 12,10,"7760 Radolfzell",6
  145.  PowerPrint 20,15,"Vielen Dank.",1
  146.  PowerPrint 22,2,"Viel Spaß bei Mini_TIC-TAC-TOE V0.3 !",4
  147.  COLOR ,0
  148.  PowerPrint 29,8,"Press Space to continue !",7
  149.  GOSUB Blenden
  150.  WINDOW CLOSE 2
  151.  SCREEN CLOSE 2
  152. GOTO FRAG    
  153. Spielerstand:
  154.  WINDOW 2,"         Spielerstand",(10,180)-(600,235),0,1
  155.  PowerPrint 1,5,"Es wurden bereits"+STR$(Spiele+Unent1)+" Spiele gespielt,davon"+STR$(Unent1)+" Spiele unentschieden.",1
  156.  PowerPrint 2,2,"Spieler                      Spiele gewonen",2
  157.  PowerPrint 3,2,STRING$(43,"-"),3
  158.  PowerPrint 4,2,W$(2)+SPACE$(30)+STR$(Spieler1),2
  159.  PowerPrint 5,2,W$(3)+SPACE$(30)+STR$(Spieler2),2
  160.  PowerPrint 7,25,"Press Spaces to continue",3
  161.  WHILE INKEY$<>CHR$(32) : WEND
  162.  WINDOW CLOSE 2
  163. GOTO FRAG
  164. Blenden:
  165.  WHILE INKEY$<>CHR$(32) 
  166.   GOSUB FarbenFestlegen
  167.   GOSUB Fade
  168.  WEND
  169. RETURN
  170. FarbenFestlegen: 
  171.  FOR I=1 TO 7
  172.   Ro!(I,0)=Ro!(I,1)
  173.   Gr!(I,0)=Gr!(I,1)
  174.   Bl!(I,0)=Bl!(I,1)
  175.   Ro!(I,1)=RND
  176.   Gr!(I,1)=RND
  177.   Bl!(I,1)=RND
  178.  NEXT
  179.  RETURN
  180. Fade:
  181.  FOR J=0 TO 6
  182.   FOR I=0 TO 7
  183.    R!=(Ro!(I,1)-Ro!(I,0))/6*J
  184.    G!=(Gr!(I,1)-Gr!(I,0))/6*J
  185.    B!=(Bl!(I,1)-Bl!(I,0))/6*J          
  186.    PALETTE I,Ro!(I,0)+R!,Gr!(I,0)+G!,Bl!(I,0)+B! 
  187.  NEXT I,J
  188.  RETURN    
  189. ENDE:
  190.   WINDOW 2,"Mini_TIC-TAC-TOE Request",(200,70)-(400,100),0,1
  191.   PowerPrint 1,1,"Wollen Sie wirklich  ",3
  192.   PowerPrint 2,1,"Mini_TIC-TAC-TOE V0.3",3
  193.   PowerPrint 3,1,"verlassen (J / N) ?  ",3 
  194.  WHILE AntWo$<>"J" AND AntWo$<>"N"
  195.   AntWo$=UCASE$(INKEY$)
  196.  WEND
  197.  IF AntWo$="N" THEN
  198.   MENU RESET
  199.   LIST
  200.   END
  201.  ELSE
  202.   WINDOW CLOSE 2
  203.   WINDOW CLOSE 1
  204.   SCREEN CLOSE 1
  205.   SYSTEM      
  206.  END IF
  207. SUB PowerPrint(xPos,yPos,Text$,Farbe) STATIC
  208.  LOCATE xPos,yPos
  209.  COLOR Farbe
  210.  PRINT Text$;
  211. END SUB   
  212.